From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 27 Apr 2001 13:00:42 +0000 (+0000)
Subject: (rmail-message-regexp-p): Don't match before
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40538
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=dd024ce73285656eaf7fc7a4d68af1d66e53b603;p=emacs.git

(rmail-message-regexp-p): Don't match before
headers.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 8ff2800cda6..5d5a1c494f2 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2509,11 +2509,12 @@ or forward if N is negative."
 	      ;; header, we didn't yet get past the EOOH line.
 	      (if (looking-at "^\\*\\*\\* EOOH \\*\\*\\*\n")
 		  (forward-line 1))
+	      (setq beg (point))
 	      (narrow-to-region (point) end))
 	    (rfc822-goto-eoh)
+	  (setq beg (point))
 	  (search-forward "\n*** EOOH ***\n" end t))
-	(narrow-to-region beg (point))
-	(goto-char (point-min))
+	(goto-char beg)
 	(re-search-forward regexp end t)))))
 
 (defvar rmail-search-last-regexp nil)